home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / fzartwts.igb < prev    next >
Text File  |  1993-08-23  |  2KB  |  91 lines
  1. inst4.1     !Sept 11, 1992
  2. !****************************************************************
  3. !*                                *
  4. !*    Fuzzy ART Map category weights              *
  5. !*                                *
  6. !****************************************************************
  7. !
  8.  
  9. @LLsl                !Load super-layer
  10. =n0    Lpes            !Number of layers
  11. =LayN    0
  12.  
  13. ! First look for last preprocessing layer
  14.  
  15. :FzA1
  16. =n1    LayN            !remember layer
  17. +LayN    1            !next layer
  18. ?LayN    n0
  19. >bgt    FzAEnd            !past output layer
  20. @LLly                !load the layer
  21. ?Llrn    0            !is this a preprocessing layer?
  22. >bne    FzA2            !we are past the preprocessing layers
  23. >br    FzA1            !next layer
  24.  
  25. !Load previous layer
  26. :FzA2
  27. =LayN    n1
  28. @LLly
  29. =n3    Lpes            !remember #PEs
  30. =NPEl    LayN            !set up as near (source) layer
  31.  
  32. !Now look for the category layer (should be the next one)
  33. :FzA3
  34. +LayN    1            !next layer
  35. ?LayN    n0
  36. >bgt    FzAEnd            !past output layer
  37. @LLly                !load the layer
  38. ?Llrn    "FzART"            !is this the category layer?
  39. >bne    FzA3
  40.  
  41. =n4    Lpes            !remember #PEs
  42. =SPEl    LayN            !set up as selected (dest) layer
  43.  
  44. ! Add probe
  45. =PNam    "CatWghts"        !probe name
  46. @PbAS                !Add Probe
  47. @PbDC                !Delete all components
  48. @PALC                !Layer Connections
  49.  
  50. ! Now build the instrument
  51. @ILdD                !load default instrument
  52. =ITit    "Category Weights"    !Instrument title
  53. =IGTy    "Hinton"        !Graph Type
  54. =IGVr    "Weight"        !Variable
  55. =ITTy    "RMS"            !RMS Transformation Type
  56. =ITMd    0            !No transformation
  57. =IEpc    0            !No epoch
  58.  
  59. =Ignx    n3
  60. =Inpl    n4
  61. *Inpl    n3
  62. =Iwdt    7
  63. *Iwdt    n3
  64. ?Iwdt    140
  65. >bgt    FzA4
  66. =Iwdt    140
  67. :FzA4
  68. =Ihgt    7
  69. *Ihgt    n4
  70. ?Ihgt    100
  71. >bgt    FzA5
  72. =Ihgt    100
  73. :FzA5
  74.  
  75. =Ivmn    0.0
  76. =Ivmx    1.0
  77. =ILnA    1            !Active in Learn
  78. =IRcA    0            !Inactive in recall
  79. =ILDv    100            !Every 100 iterations
  80. =ILRm    0
  81. =IRDv    0
  82. =IRRm    0
  83. =IPrb    PNam            !Point to probe
  84. =ICAc    0            !Convergence criterion inactive
  85. =ICTh    0.0            !Convergence Threshold
  86. !Let NeuralWorks figure out where to put instrument
  87. =x    0
  88. =y    0
  89. @IAdd                !Now create instrument
  90. :FzAEnd
  91.